home *** CD-ROM | disk | FTP | other *** search
/ Internet Magazine 2001 February / Internet Magazine February 2001.iso / mac / SOFTWARE / MAC / UTILITIES / NETFINDER / NETFINDER.HQX / NetFinder v2.2b5 / Scripts / Send FTP Command / oC
Encoding:
Text File  |  2000-03-18  |  758 b   |  38 lines
  1. /* 
  2.     Sample ICI script for NetFinder.
  3.     
  4.     This script demonstrates how send a custom FTP command to all internal engines.
  5.     
  6.     What this script does:
  7.     - Prompts the user for command(s) to send.
  8.     - sends commands.
  9.     
  10.     
  11.     NOTES:
  12.     o Full ICI programming syntax can be obtained from
  13.       <http://www.zeta.org.au/~atrn/ici/documentation.html>
  14.     
  15.     (c) Copyright 2000 Peter Li.
  16.  */ 
  17.  
  18.  
  19.  
  20. try {
  21.     /* define a few variables */
  22.     auto command;
  23.     
  24.     /* prompt the user for input. */
  25.     
  26.     if (MICI.Ask("Enter FTP Command." /*\rUse ╥,╙ between words. eg ╥umask,encrypt╙" */,
  27.                  "" /* inDefaultAnswer */,
  28.                  &command) == 0)
  29.     {
  30.         /* if user didnt cancel, continue. Else do nothing. */
  31.  
  32.         NFSendEngineFTPCommand(command);
  33.     }
  34. } onerror {
  35.     printf("'iciMICI.so' module is missing.\n");
  36. }
  37.  
  38.